home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 February / Ahoy_Magazine_86-02_1986_Double_L.d64 / ext background (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  583b  |  15 lines
  1. 1 rem *** extended background demo ***
  2. 9 rem set extended background color mode
  3. 10 poke 53265,peek(53265)or 64
  4. 11 rem set up regular string for background #0
  5. 12 a$(0)="abcdefghijklmnopqrstuvwxyz 1234567890 !#$%&'()+-\_*^@=;:[]/.,<>?"
  6. 13 a$(0)=a$(0)+chr$(34)+chr$(34)
  7. 14 rem convert regular characters to shifted characters for background #1
  8. 15 a$(1)="":for i=1 to len(a$(0)):a=asc(mid$(a$(0),i,1))
  9. 16 if a<64 then a=a+128:goto 18
  10. 17 a=a+32
  11. 18 a$(1)=a$(1)+chr$(a):next
  12. 19 rem add reverse-on/off characters to both strings for backgrounds 2 & 3
  13. 20 a$(2)=""+a$(0)+"[146]":a$(3)=""+a$(1)+"[146]"
  14. 21 for i=0 to 3:print a$(i):next
  15.